REM ########################################################################
REM #                                                                      #
REM #                        WISSoft präsentiert                           #
REM #                                                                      #
REM #                         N L Q  e d   V1.0                            #
REM #                                                                      #
REM #               NLQ-Druckzeichen-Editor fuer STAR LC-10                #
REM #                                                                      #
REM #                    (c) 1989 by Roland S. Speth                       #
REM #                                                                      #
REM ########################################################################

REM Autor:  Roland S. Speth, Am Listholze 2, D-3000 Hannover 1, West Germany

CLEAR ,50000
WINDOW 2,"*** NLQed ***************************",(1,1)-(300,60),16

Dateiname$="kyrillisch5"

COLOR 2,1: CLS
COLOR 2: LOCATE 2,3: PRINT "Der NLQed schickt den Zeichensatz"
COLOR 3: LOCATE 4,3: PRINT SPACE$(INT(16.5-LEN(Dateiname$)/2))+Dateiname$
COLOR 2: LOCATE 6,3: PRINT "      an Deinen STAR LC-10."

DIM code(78,46),ascii(78)

Laden:
   OPEN Dateiname$ FOR INPUT AS #2
   FOR n%=1 TO 78
      INPUT #2,ascii(n%)
      FOR Index%=0 TO 46
         INPUT #2,code(n%,Index%)
      NEXT Index%
   NEXT n%
   CLOSE #2
   
Drucken:
   OPEN "par:" FOR OUTPUT AS #1 LEN=1
   PRINT #1,CHR$(27);"x1";
   PRINT #1,CHR$(27);":";CHR$(0);CHR$(0);CHR$(0);

   FOR n%=78 TO 1 STEP -1
      PRINT #1,CHR$(27);"&";CHR$(0);CHR$(ascii(n%));CHR$(ascii(n%));
      FOR Index%=0 TO 46
         PRINT #1,CHR$(code(n%,Index%));
      NEXT Index%
   NEXT n%
   PRINT #1,""
   PRINT #1,CHR$(27);"%1";
   
Ende:
   WINDOW CLOSE 2
   CLOSE
   END